home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-2 / background_18737.txt < prev    next >
Text File  |  1990-08-07  |  2KB  |  81 lines
  1. -- background: 18737 from stack: in.0-2
  2. -- bmap block id: 19234
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Stacks
  6. ----- HyperTalk script -----
  7. -- This handler goes back to the last card if the user clicks
  8. -- outside the "window".
  9. on mouseUp
  10.   if "field" is not word 2 of the target and "button" is not word 2 of the target then send "goBack" to this cd
  11. end mouseUp
  12.  
  13.  
  14.  
  15. -- part 1 (field)
  16. -- low flags: 01
  17. -- high flags: 0001
  18. -- rect: left=64 top=92 right=296 bottom=411
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 0 / 0
  21. -- text alignment: 0
  22. -- font id: 174
  23. -- text size: 14
  24. -- style flags: 0
  25. -- line height: 15
  26. -- part name: 
  27.  
  28.  
  29. -- part 4 (button)
  30. -- low flags: 00
  31. -- high flags: 0000
  32. -- rect: left=47 top=59 right=306 bottom=425
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 0 / 0
  35. -- text alignment: 1
  36. -- font id: 0
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 16
  40. -- part name: wind
  41.  
  42.  
  43. -- part 3 (button)
  44. -- low flags: 00
  45. -- high flags: 0000
  46. -- rect: left=54 top=61 right=76 bottom=74
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 1
  50. -- font id: 0
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: closebox
  55. ----- HyperTalk script -----
  56. -- This handler sets the cursor to simulate a real closeBox.
  57. on mouseEnter
  58.   set the cursor to "arrow"
  59. end mouseEnter
  60.  
  61. -- This handler sets the cursor to simulate a real closeBox.
  62. on mouseWithIn
  63.   repeat until the mouseloc is not within the rect of me or the mouse is down
  64.     set the cursor to "arrow"
  65.   end repeat
  66.   if the mouse is down then
  67.     send mouseUp to me
  68.   end if
  69. end mouseWithIn
  70.  
  71. -- This handler simulates clicking in a closeBox.
  72. on mouseUp
  73.   set the icon of me to 7937
  74.   wait 15
  75.   set the icon of me to 0
  76.   lock screen
  77.   goBack
  78.   unlock screen
  79. end mouseUp
  80.  
  81.